home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1991: Code Warrior / bincue / Code Warrior.bin / Tools & Apps (Moof!) / OS⁄Toolbox / HyperMenus / DisposeMenu.c < prev    next >
Encoding:
Text File  |  1990-07-23  |  658 b   |  45 lines  |  [TEXT/MPS ]
  1. //
  2. //        © Copyright 1990 Apple Computer, Inc.   By Ricardo Batista
  3. //
  4.  
  5. #include "Types.h"
  6. #include "Memory.h"
  7. #include "Menus.h"
  8. #include "Packages.h"
  9. #include "HyperXCMD.h"
  10.  
  11.  
  12. void GetHLong(Handle H, long *s);
  13.  
  14. pascal void MAIN(XCmdPtr xcmd)
  15. {
  16.     long num;
  17.     
  18.     if (xcmd->paramCount != 1)
  19.         return;
  20.     GetHLong(xcmd->params[0], &num);
  21.     if (!num)
  22.         return;
  23.     DisposeMenu((MenuHandle) num);
  24. }
  25.  
  26.  
  27. void GetHLong(Handle H, long *s)
  28. {
  29.     short len;
  30.     char st[256];
  31.     
  32.     *s = 0L;
  33.     HLock(H);
  34.     len = (short) GetHandleSize(H);
  35.     if (len > 255)
  36.         len = 255;
  37.     BlockMove(*H, &st[1], (long) len);
  38.     HUnlock(H);
  39.     len = 1;
  40.     while (st[len])
  41.         len++;
  42.     st[0] = len - 1;
  43.     StringToNum(st, s);
  44. }
  45.